home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / psgui130.zip / PGUIMDEF.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-01  |  2KB  |  69 lines
  1. {
  2.  
  3.                                                       ╔══════════════════╗
  4.                                                       ║   Mouse Function ║
  5.                                                       ║      Defines     ║
  6.                                                       ║    Rev.  1.00    ║
  7.                                                       ╚══════════════════╝
  8.  
  9. }
  10.  
  11. Unit PGUIMDef;
  12.  
  13. {$F+} {$O-} {$A+} {$G-}
  14. {$V-} {$B-} {$X-} {$N+} {$E+}
  15.  
  16. {$I FINAL.PAS}
  17.  
  18. {$IFDEF FINAL}
  19.   {$I-} {$R-}
  20.   {$D-} {$L-} {$S-}
  21. {$ENDIF}
  22.  
  23. Interface
  24.  
  25. Type
  26.   BGIMouseShapePtr         = ^BGIMouseShape;
  27.  
  28.   BGIMouseShape            = Record
  29.                                Picture   :Pointer;
  30.                                Mask      :Pointer;
  31.                                XHot      :Integer;
  32.                                YHot      :Integer;
  33.                              End;
  34.  
  35.   STDMouseShapePtr         = ^STDMouseShape;
  36.  
  37.   STDMouseShape            = Record
  38.                                Picture   :Array[1..32] of Byte;
  39.                                Mask      :Array[1..32] of Byte;
  40.                                XHot      :Integer;
  41.                                YHot      :Integer;
  42.                              End;
  43.  
  44.   MouseProc_Init           = Procedure (Installed:Boolean);
  45.   MouseProc_Show           = Procedure;
  46.   MouseProc_Hide           = Procedure;
  47.   MouseProc_SetSpeed       = Procedure (Mousems:Byte);
  48.   MouseProc_SetXY          = Procedure (X,Y:Word);
  49.   MouseProc_SetBounds      = Procedure (X1,Y1,X2,Y2:Word);
  50.   MouseProc_SetShape       = Procedure (Shape:Pointer);
  51.   MouseProc_GetPresses     = Procedure (Var X,Y:Word;Var Button:Byte;
  52.                                         Var Held:Boolean;Var NumTimes:Word);
  53.   MouseProc_GetXY          = Procedure (Var X,Y:Word);
  54.   MouseProc_GetStatus      = Procedure (Var X,Y:Word;
  55.                                         Var Left,Right,Middle:Boolean);
  56.   MouseProc_GetClick       = Procedure (Var X1, Y1, X2, Y2:Word;
  57.                                         Var MouseButton:Byte;
  58.                                         Var Held,Doubled:Boolean);
  59.  
  60. Var
  61.   ComputerSpeed :LongInt;
  62.   Active        :Boolean;
  63.  
  64. Implementation
  65.  
  66. End.
  67.  
  68. { Copyright 1993, Michael Gallias }
  69.